home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Telnet / NCSA / tn3270 2.3d26 source / tn3270 tools / keymap.r < prev    next >
Text File  |  1991-01-21  |  9KB  |  431 lines
  1. /*
  2.  *  tn3270 for the Macintosh Source Code
  3.  *  Brown University Computing and Information Services
  4.  *  Version 2.3d21, January 17, 1991
  5.  *  Copyright (c) 1988, 1989, 1990, 1991 by Brown University and by
  6.  *  Peter John DiCamillo.
  7.  *
  8.  *  Permission is granted to any individual or institution to use, copy,
  9.  *  or redistribute the binary version of this software and its
  10.  *  documentation provided this notice and the copyright notices are
  11.  *  retained.  Permission is granted to any individual or non-profit
  12.  *  institution to use, copy, modify, or redistribute the source files
  13.  *  of this software provided this notice and the copyright notices are
  14.  *  retained.  This software may not be distributed for profit, either
  15.  *  in original form or in derivative works, nor can the source be
  16.  *  distributed to other than an individual or a non-profit institution.
  17.  *  Any  individual or group interested in seeing and/or using these
  18.  *  source files but who are prevented from doing so by the above
  19.  *  constraints should contact Don Wolfe, Assistant Vice-President for
  20.  *  Computer Systems at Brown University, (401) 863-7250, for possible
  21.  *  software licensing of the source developed at Brown.
  22.  *
  23.  *  Brown University and Peter John DiCamillo make no representations
  24.  *  about the suitability of this software for any purpose.
  25.  *
  26.  *  BROWN UNIVERSITY AND PETER JOHN DICAMILLO GIVE NO WARRANTY, EITHER
  27.  *  EXPRESS OR IMPLIED, FOR THE PROGRAM AND/OR DOCUMENTATION PROVIDED,
  28.  *  INCLUDING, WITHOUT LIMITATION, WARRANTY OF MERCHANTABILITY AND
  29.  *  WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE.
  30.  *
  31.  */
  32.  
  33. #include "types.r"
  34. #include "vers.r"
  35.  
  36. #define the_datestr "February 22, 1990"
  37. #define the_majorver 0x1
  38. #define the_minorver 0x0
  39. #define the_stage development
  40. #define the_build 0x3
  41. #define the_verstr "1.0d3"
  42.  
  43. type 'GFTK' {
  44.         pstring;
  45. };
  46.  
  47. resource 'GFTK' (0, preload) {
  48.     "KeyMap (for tn3270) by Peter DiCamillo Version "
  49.     the_verstr "  " the_datestr
  50. };
  51.  
  52. resource 'vers' (1, preload) {
  53.     the_majorver,
  54.     the_minorver,
  55.     the_stage,
  56.     the_build,
  57.     verUs,
  58.     the_verstr,
  59.     the_verstr " " the_datestr
  60. };
  61.  
  62. resource 'FREF' (12325) {
  63.     'APPL',
  64.     0,
  65.     ""
  66. };
  67.  
  68. resource 'BNDL' (12325) {
  69.     'GFTK',
  70.     0,
  71.     {    /* array TypeArray: 2 elements */
  72.         /* [1] */
  73.         'ICN#',
  74.         {    /* array IDArray: 1 element */
  75.             /* [1] */
  76.             0, 12325
  77.         },
  78.         /* [2] */
  79.         'FREF',
  80.         {    /* array IDArray: 1 element */
  81.             /* [1] */
  82.             0, 12325
  83.         }
  84.     }
  85. };
  86.  
  87. resource 'FREF' (12325) {
  88.     'APPL',
  89.     0,
  90.     ""
  91. };
  92.  
  93. resource 'ICN#' (12325) {
  94.     {    /* array: 2 elements */
  95.         /* [1] */
  96.         $"FFDF FBFF 8050 0A01 8C53 8A71 9252 4A89"
  97.         $"9253 8A81 9E52 4A81 9252 4A89 9253 8A71"
  98.         $"8050 0A01 FFDF FBFF 0000 0000 FFDF FBFF"
  99.         $"8050 0A01 8051 0A11 8053 8AF9 BE57 CA21"
  100.         $"8251 0AF9 8251 0A41 8051 0A01 8050 0A01"
  101.         $"FFDF FBFF 0000 0000 FFDF FBFF 8050 0A01"
  102.         $"8051 0A01 8851 0A11 9851 0A19 BF57 CAFD"
  103.         $"9853 8A19 8851 0A11 8050 0A01 FFDF FBFF",
  104.         /* [2] */
  105.         $"FFDF FBFF FFDF FBFF FFDF FBFF FFDF FBFF"
  106.         $"FFDF FBFF FFDF FBFF FFDF FBFF FFDF FBFF"
  107.         $"FFDF FBFF FFDF FBFF 0000 0000 FFDF FBFF"
  108.         $"FFDF FBFF FFDF FBFF FFDF FBFF FFDF FBFF"
  109.         $"FFDF FBFF FFDF FBFF FFDF FBFF FFDF FBFF"
  110.         $"FFDF FBFF 0000 0000 FFDF FBFF FFDF FBFF"
  111.         $"FFDF FBFF FFDF FBFF FFDF FBFF FFDF FBFF"
  112.         $"FFDF FBFF FFDF FBFF FFDF FBFF FFDF FBFF"
  113.     }
  114. };
  115.  
  116. resource 'MENU' (256, preload) {
  117.     256,
  118.     textMenuProc,
  119.     0x7FFFFFFD,
  120.     enabled,
  121.     apple,
  122.     {    /* array: 2 elements */
  123.         /* [1] */
  124.         "About KeyMap...", noIcon, "", "", plain,
  125.         /* [2] */
  126.         "-", noIcon, "", "", plain
  127.     }
  128. };
  129.  
  130. resource 'MENU' (257, preload) {
  131.     257,
  132.     textMenuProc,
  133.     allEnabled,
  134.     enabled,
  135.     "File",
  136.     {    /* array: 6 elements */
  137.         /* [1] */
  138.         "Open definition file", noIcon, "", "", plain,
  139.         /* [2] */
  140.         "Show definition info", noIcon, "", "", plain,
  141.         /* [3] */
  142.         "Write Rez text file", noIcon, "", "", plain,
  143.         /* [4] */
  144.         "Write resource to existing file", noIcon, "", "", plain,
  145.         /* [5] */
  146.         "Write resource to new file", noIcon, "", "", plain,
  147.         /* [6] */
  148.         "Quit", noIcon, "", "", plain
  149.     }
  150. };
  151.  
  152. resource 'MENU' (258, preload) {
  153.     258,
  154.     textMenuProc,
  155.     0x7FFFFFFD,
  156.     enabled,
  157.     "Edit",
  158.     {    /* array: 6 elements */
  159.         /* [1] */
  160.         "Undo", noIcon, "Z", "", plain,
  161.         /* [2] */
  162.         "-", noIcon, "", "", plain,
  163.         /* [3] */
  164.         "Cut", noIcon, "X", "", plain,
  165.         /* [4] */
  166.         "Copy", noIcon, "C", "", plain,
  167.         /* [5] */
  168.         "Paste", noIcon, "V", "", plain,
  169.         /* [6] */
  170.         "Clear", noIcon, "", "", plain
  171.     }
  172. };
  173.  
  174. resource 'ALRT' (256, preload) {
  175.     {88, 76, 214, 436},
  176.     256,
  177.     {    /* array: 4 elements */
  178.         /* [1] */
  179.         OK, visible, sound3,
  180.         /* [2] */
  181.         OK, visible, sound3,
  182.         /* [3] */
  183.         OK, visible, sound3,
  184.         /* [4] */
  185.         OK, visible, sound3
  186.     }
  187. };
  188.  
  189. resource 'DITL' (256, preload) {
  190.     {    /* array DITLarray: 2 elements */
  191.         /* [1] */
  192.         {82, 140, 114, 220},
  193.         Button {
  194.             enabled,
  195.             "OK"
  196.         },
  197.         /* [2] */
  198.         {8, 72, 74, 332},
  199.         StaticText {
  200.             disabled,
  201.             "^0"
  202.         }
  203.     }
  204. };
  205.  
  206. resource 'DLOG' (257, preload) {
  207.     {86, 96, 256, 416},
  208.     dBoxProc,
  209.     invisible,
  210.     noGoAway,
  211.     0x0,
  212.     257,
  213.     ""
  214. };
  215.  
  216. resource 'DITL' (257, preload) {
  217.     {    /* array DITLarray: 3 elements */
  218.         /* [1] */
  219.         {122, 119, 157, 202},
  220.         Button {
  221.             enabled,
  222.             "OK"
  223.         },
  224.         /* [2] */
  225.         {13, 25, 54, 296},
  226.         StaticText {
  227.             disabled,
  228.             "^0"
  229.         },
  230.         /* [3] */
  231.         {63, 21, 113, 296},
  232.         StaticText {
  233.             disabled,
  234.             "Use KeyMap to define a new keyboard "
  235.             "mapping for tn3270 from a definition file."
  236.         }
  237.     }
  238. };
  239.  
  240. resource 'DLOG' (258, preload) {
  241.     {100, 100, 249, 364},
  242.     dBoxProc,
  243.     invisible,
  244.     noGoAway,
  245.     0x0,
  246.     258,
  247.     ""
  248. };
  249.  
  250. resource 'DITL' (258, preload) {
  251.     {    /* array DITLarray: 3 elements */
  252.         /* [1] */
  253.         {100, 157, 127, 237},
  254.         Button {
  255.             enabled,
  256.             "Cancel"
  257.         },
  258.         /* [2] */
  259.         {100, 26, 127, 106},
  260.         Button {
  261.             enabled,
  262.             "Replace"
  263.         },
  264.         /* [3] */
  265.         {16, 17, 71, 246},
  266.         StaticText {
  267.             disabled,
  268.             "Replace the existing map resource named "
  269.             "\"^0\"?"
  270.         }
  271.     }
  272. };
  273.  
  274. resource 'DLOG' (259, preload) {
  275.     {100, 100, 376, 438},
  276.     dBoxProc,
  277.     invisible,
  278.     noGoAway,
  279.     0x0,
  280.     259,
  281.     ""
  282. };
  283.  
  284. resource 'DITL' (259, preload) {
  285.     {    /* array DITLarray: 5 elements */
  286.         /* [1] */
  287.         {225, 131, 257, 210},
  288.         Button {
  289.             enabled,
  290.             "OK"
  291.         },
  292.         /* [2] */
  293.         {21, 13, 56, 327},
  294.         StaticText {
  295.             disabled,
  296.             "File: ^0"
  297.         },
  298.         /* [3] */
  299.         {75, 13, 110, 327},
  300.         StaticText {
  301.             disabled,
  302.             "Last Modified: ^1"
  303.         },
  304.         /* [4] */
  305.         {129, 13, 166, 327},
  306.         StaticText {
  307.             disabled,
  308.             "Resource map name: ^2"
  309.         },
  310.         /* [5] */
  311.         {183, 13, 202, 327},
  312.         StaticText {
  313.             disabled,
  314.             "Rez file resource number: ^3"
  315.         }
  316.     }
  317. };
  318.  
  319. resource 'ALRT' (260, preload) {
  320.     {51, 76, 251, 436},
  321.     260,
  322.     {    /* array: 4 elements */
  323.         /* [1] */
  324.         OK, visible, sound3,
  325.         /* [2] */
  326.         OK, visible, sound3,
  327.         /* [3] */
  328.         OK, visible, sound3,
  329.         /* [4] */
  330.         OK, visible, sound3
  331.     }
  332. };
  333.  
  334. resource 'DITL' (260, preload) {
  335.     {    /* array DITLarray: 3 elements */
  336.         /* [1] */
  337.         {156, 140, 188, 220},
  338.         Button {
  339.             enabled,
  340.             "OK"
  341.         },
  342.         /* [2] */
  343.         {8, 72, 74, 332},
  344.         StaticText {
  345.             disabled,
  346.             "^0"
  347.         },
  348.         /* [3] */
  349.         {82, 72, 148, 332},
  350.         StaticText {
  351.             disabled,
  352.             "^1"
  353.         }
  354.     }
  355. };
  356.  
  357. resource 'cicn' (12325, purgeable) {
  358.     16,
  359.     {0, 0, 32, 32},
  360.     0,
  361.     unpacked,
  362.     0,
  363.     0x480000,
  364.     0x480000,
  365.     chunky,
  366.     4,
  367.     1,
  368.     4,
  369.     0,
  370.     0,
  371.     4,
  372.     {0, 0, 32, 32},
  373.     4,
  374.     {0, 0, 32, 32},
  375.     $"FFDF FBFF FFDF FBFF FFDF FBFF FFDF FBFF"
  376.     $"FFDF FBFF FFDF FBFF FFDF FBFF FFDF FBFF"
  377.     $"FFDF FBFF FFDF FBFF 0000 0000 FFDF FBFF"
  378.     $"FFDF FBFF FFDF FBFF FFDF FBFF FFDF FBFF"
  379.     $"FFDF FBFF FFDF FBFF FFDF FBFF FFDF FBFF"
  380.     $"FFDF FBFF 0000 0000 FFDF FBFF FFDF FBFF"
  381.     $"FFDF FBFF FFDF FBFF FFDF FBFF FFDF FBFF"
  382.     $"FFDF FBFF FFDF FBFF FFDF FBFF FFDF FBFF"
  383.     $"FFDF FBFF 8050 0A01 8C53 8A71 9252 4A89"
  384.     $"9253 8A81 9E52 4A81 9252 4A89 9253 8A71"
  385.     $"8050 0A01 FFDF FBFF 0000 0000 FFDF FBFF"
  386.     $"8050 0A01 8051 0A11 8053 8AF9 BE57 CA21"
  387.     $"8251 0AF9 8251 0A41 8051 0A01 8050 0A01"
  388.     $"FFDF FBFF 0000 0000 FFDF FBFF 8050 0A01"
  389.     $"8051 0A01 8851 0A11 9851 0A19 BF57 CAFD"
  390.     $"9853 8A19 8851 0A11 8050 0A01 FFDF FBFF"
  391.     $"0000 0000 0000 0004 0000 FFFF FFFF FFFF"
  392.     $"0001 FFFF 0000 0000 0002 0000 0000 FFFF"
  393.     $"0003 DFFF DFFF DFFF 0004 0000 0000 0000"
  394.     $"4444 4444 4404 4444 4444 4044 4444 4444"
  395.     $"4333 3333 3404 3333 3333 4043 3333 3334"
  396.     $"4333 2233 3404 3322 2333 4043 3222 3334"
  397.     $"4332 3323 3404 3323 3233 4043 2333 2334"
  398.     $"4332 3323 3404 3322 2333 4043 2333 3334"
  399.     $"4332 2223 3404 3323 3233 4043 2333 3334"
  400.     $"4332 3323 3404 3323 3233 4043 2333 2334"
  401.     $"4332 3323 3404 3322 2333 4043 3222 3334"
  402.     $"4333 3333 3404 3333 3333 4043 3333 3334"
  403.     $"4444 4444 4404 4444 4444 4044 4444 4444"
  404.     $"0000 0000 0000 0000 0000 0000 0000 0000"
  405.     $"4444 4444 4404 4444 4444 4044 4444 4444"
  406.     $"4333 3333 3404 3333 3333 4043 3333 3334"
  407.     $"4333 3333 3404 3331 3333 4043 3332 3334"
  408.     $"4333 3333 3404 3311 1333 4043 2222 2334"
  409.     $"4322 2223 3404 3111 1133 4043 3323 3334"
  410.     $"4333 3323 3404 3331 3333 4043 2222 2334"
  411.     $"4333 3323 3404 3331 3333 4043 3233 3334"
  412.     $"4333 3333 3404 3331 3333 4043 3333 3334"
  413.     $"4333 3333 3404 3333 3333 4043 3333 3334"
  414.     $"4444 4444 4404 4444 4444 4044 4444 4444"
  415.     $"0000 0000 0000 0000 0000 0000 0000 0000"
  416.     $"4444 4444 4404 4444 4444 4044 4444 4444"
  417.     $"4333 3333 3404 3333 3333 4043 3333 3334"
  418.     $"4333 3333 3404 3331 3333 4043 3333 3334"
  419.     $"4333 1333 3404 3331 3333 4043 3331 3334"
  420.     $"4331 1333 3404 3331 3333 4043 3331 1334"
  421.     $"4311 1111 3404 3111 1133 4043 1111 1134"
  422.     $"4331 1333 3404 3311 1333 4043 3331 1334"
  423.     $"4333 1333 3404 3331 3333 4043 3331 3334"
  424.     $"4333 3333 3404 3333 3333 4043 3333 3334"
  425.     $"4444 4444 4404 4444 4444 4044 4444 4444"
  426. };
  427.  
  428.  
  429.  
  430.  
  431.